'************************************************
'ADF4117 PLL Ver1.0.1
'2006.12.26
'JA4LAO_Tuneo.Ito
'AT90S2313-10PC
'POS-535 260MHz-550Mhz
'************************************************

Config Portd = Output
Config Portb.0 = Input
Config Portb.1 = Input
Config Debounce = 3

Dim I As Byte
Dim Freq As Long
Dim Freq1 As Long
Dim Init1 As Long
Dim Init2 As Long
Dim Init3 As Long
Dim Ref As Long
Dim Cndata As Long
Dim Freqb1 As String * 21
Dim A As String * 1
Dim B As Byte

Freq = 29000
Init1 = 167
Init2 = 166
Init3 = 162
Ref = 5200
Cls
Locate 1 , 1 : Lcd Freq : Lcd "0KHz"
Cndata = Init1 : Gosub Settei2 : Gosub Dataout
Cndata = Init2 : Gosub Settei2 : Gosub Dataout
Cndata = Ref : Gosub Settei2 : Gosub Dataout
Cndata = Freq : Gosub Settei1 : Gosub Dataout
Cndata = Init3 : Gosub Settei2 : Gosub Dataout

Do
       Debounce Pinb.0 , 0 , Updown , Sub
       Waitms 1
Loop

End

Updown:
If Pinb.1 = 0 Then
       Freq = Freq + 10
Else
       Freq = Freq - 10
End If
Gosub Dataout2
Cls : Locate 1 , 1 : Lcd Freq : Lcd "0KHz"
Return

Settei1:
Freqb1 = Bin(cndata)
Freqb1 = Right(freqb1 , 21)
Freq1 = Binval(freqb1)
Rotate Freq1 , Left , 2
Incr Freq1
Freqb1 = Bin(freq1)
Freqb1 = Right(freqb1 , 21)
Return

Settei2:
Freqb1 = Bin(cndata)
Freqb1 = Right(freqb1 , 21)
Return

Dataout:
Set Portd.3
Waitus 10
Reset Portd.3
Waitus 10
For I = 1 To 21
     A = Mid(freqb1 , I , 1)
     Select Case A
               Case "1"
                      Set Portd.4 : Waitus 10
               Case "0"
                      Reset Portd.4 : Waitus 10
     End Select
     Set Portd.5 : Waitus 10
     Reset Portd.4
     Reset Portd.5
     Waitus 10
Next I
Set Portd.3 : Waitus 10 : Reset Portd.3 : Waitus 10
Return

Dataout2:
Cndata = Freq : Gosub Settei1 : Gosub Dataout
Cndata = Init3 : Gosub Settei2 : Gosub Dataout
Locate 1 , 1 : Lcd Freq : Lcd "KHz"
Return